﻿Public Class Categoria : Implements IEquatable(Of Categoria)

    Public Property CodCategoria As Integer
    Public Property Nombre As String

    Public Sub New()

    End Sub

    Public Sub New(ByVal nom As String)
        Me.Nombre = nom
    End Sub

    Public Sub New(ByVal cod As Integer, nom As String)
        Me.CodCategoria = cod
        Me.Nombre = nom
    End Sub
    Public Overrides Function ToString() As String
        Return Me.Nombre
    End Function
    Public Function Equals1(other As Categoria) As Boolean Implements IEquatable(Of Categoria).Equals
        Return Me.Nombre = other.Nombre
    End Function

End Class

